home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / wyvern.arc / DRAGDRAW.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-07  |  1.1 KB  |  35 lines
  1. 10  ' ************************************************************
  2. 20  ' *                    Wyvern Picture                        *
  3. 30  ' *                  By: Kyle Cummings                       *
  4. 40  ' *                    Date: 11-06-85                        *
  5. 50  ' *                                                          *
  6. 60  ' *   (This picture was originally made on punched cards)    *
  7. 70  ' ************************************************************
  8. 80  KEY OFF
  9. 90  CLS
  10. 100  INPUT "Do you want the BIG picture or the SMALL picture? (B or S) ";ANS$
  11. 110  CLS
  12. 120  IF ANS$="" THEN GOTO 100
  13. 130  JKC=INSTR("BbSs",LEFT$(ANS$,1))
  14. 140  ON JKC GOTO 160,160,190,190
  15. 150  GOTO 100
  16. 160  SCRNVAR=1
  17. 170  PICFILE$="DRAGBIG.BIN"
  18. 180  GOTO 210
  19. 190  SCRNVAR=2
  20. 200  PICFILE$="DRAGSMAL.BIN"
  21. 210  SCREEN SCRNVAR,0
  22. 220  IF SCRNVAR=1 THEN COLOR 0,0
  23. 230  ' -- Point SEG at the screen buffer.
  24. 240  DEF SEG=&HB800
  25. 250  ' -- Load the PICTURE into screen buffer.
  26. 260  BLOAD PICFILE$,0
  27. 270  ' -- Wait for a key to be pressed before exiting.
  28. 280  K$=INKEY$
  29. 290  IF K$="" THEN GOTO 280
  30. 300  ' -- Set everything back to normal.
  31. 310  SCREEN 0,0,0
  32. 320  WIDTH 80
  33. 330  COLOR 7,0
  34. 340  END
  35.